home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Stepfar.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  2.8 KB  |  96 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- A Step Further ----------" & RETURN & "Clusters" & RETURN & RETURN after vTempText
  18.   put StepPrint() after vTempText
  19.   put alladinPrint() after vTempText
  20.   put RETURN & RETURN after vTempText
  21.   set the text of member vThisField to vTempText
  22. end
  23.  
  24. on calculateRects
  25.   set list1 to []
  26.   set list2 to []
  27.   set list3 to []
  28.   set vTemp to EMPTY
  29.   repeat with i = 9 to 18
  30.     if sprite i intersects sprite(45) then
  31.       add(list1, i - 8)
  32.       next repeat
  33.     end if
  34.     if sprite i intersects sprite(46) then
  35.       add(list2, i - 8)
  36.       next repeat
  37.     end if
  38.     if sprite i intersects sprite(47) then
  39.       add(list3, i - 8)
  40.     end if
  41.   end repeat
  42.   put line 7 of field "print1" & RETURN after vTemp
  43.   repeat with j in list1
  44.     put line j of field "print2" & RETURN after vTemp
  45.   end repeat
  46.   put RETURN & line 8 of field "print1" & RETURN after vTemp
  47.   repeat with j in list2
  48.     put line j of field "print2" & RETURN after vTemp
  49.   end repeat
  50.   put RETURN & line 9 of field "print1" & RETURN after vTemp
  51.   repeat with j in list3
  52.     put line j of field "print2" & RETURN after vTemp
  53.   end repeat
  54.   return vTemp
  55. end
  56.  
  57. on StepPrint
  58.   set vTemp to EMPTY
  59.   repeat with i = 1 to 6
  60.     put line i of field "print1" & RETURN after vTemp
  61.   end repeat
  62.   put calculateRects() after vTemp
  63.   put RETURN & line 11 of field "print1" & RETURN after vTemp
  64.   put the text of member "fieldStep1" of castLib "Shared" & RETURN after vTemp
  65.   return vTemp
  66. end
  67.  
  68. on alladinPrint
  69.   set vTemp to EMPTY
  70.   put the text of member "print3" & RETURN after vTemp
  71.   put the text of member "field1" & RETURN after vTemp
  72.   repeat with i = 1 to 2
  73.     put line i of field "print4" & RETURN after vTemp
  74.   end repeat
  75.   repeat with i = 2 to 4
  76.     put the text of field ("field" & i) & RETURN after vTemp
  77.   end repeat
  78.   put RETURN & line 3 of field "print4" & RETURN after vTemp
  79.   repeat with i = 5 to 8
  80.     put the text of field ("field" & i) & RETURN after vTemp
  81.   end repeat
  82.   put RETURN & line 4 of field "print4" & RETURN after vTemp
  83.   repeat with i = 9 to 12
  84.     put the text of field ("field" & i) & RETURN after vTemp
  85.   end repeat
  86.   put RETURN & line 5 of field "print4" & RETURN after vTemp
  87.   repeat with i = 13 to 24
  88.     put the text of field ("field" & i) & RETURN after vTemp
  89.   end repeat
  90.   put RETURN & line 6 of field "print4" & RETURN after vTemp
  91.   repeat with i = 37 to 39
  92.     put the text of field ("field" & i) & RETURN after vTemp
  93.   end repeat
  94.   return vTemp
  95. end
  96.